/*This is the do file for the article "White or Woke Christian Nationalists."
It contains code for replicating models from regression tables 3-5 and producing figures 1 and 2.*/

use "C:\Users\admin\Desktop\DATA File\Data for Replication - Woke Christian Nationalists.dta"

*CODE FOR RUNNING MODELS FROM TABLE 3:

*Model 1

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 2

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]

*Model 3

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 4

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]



*CODE FOR RUNNING MODELS FROM TABLE 4:

*White/Woke

reg woke_01 c.cn3_01 c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 if race==1 [pw=weight]

*Black/Woke

reg woke_01 c.cn3_01 c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 if race==2 [pw=weight]

*Hispanic/Woke

reg woke_01 c.cn3_01 c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 if race==3 [pw=weight]

*White/Progressive

reg progressive_01 c.cn3_01 c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 if race==1 [pw=weight]

*Black/Progressive

reg progressive_01 c.cn3_01 c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 if race==2 [pw=weight]

*Hispanic/Progressive

reg progressive_01 c.cn3_01 c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 if race==3 [pw=weight]



*CODE FOR RUNNING MODELS FROM TABLE 5:

*Democrat/Woke

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==1 [pw=weight]

*Republican/Woke

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==2 [pw=weight]

*Independent/Woke

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==3 [pw=weight]

*Democrat/Progressive

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==1 [pw=weight]

*Republican/Progressive

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==2 [pw=weight]

*Independent/Progressive

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==3 [pw=weight]



*CODE FOR PRODUCING FIGURE 1:

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)



*CODE FOR PRODUCING FIGURE 2:

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]

margins race if race<4, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)

*Note: We adjusted the legend in graph editor.




/*The following code is for replicating regression tables and figures from the
Supplementary Materials*/


*CODE FOR PRODUCING REGRESSION TABLE S4 IN SUPPLEMENTARY MATERIAL:

*Model 1:

reg woke4_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 2:

reg woke4_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]

*Model 3:

reg progressive4_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 4:

reg progressive4_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]



*CODE FOR PRODUCING REGRESSION TABLE S5 IN SUPPLEMENTARY MATERIAL:

*Model 1

reg woke_01 c.cn3_short_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 2

reg woke_01 c.cn3_short_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_short_01##i.race [pw=weight]

*Model 3

reg progressive_01 c.cn3_short_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 4

reg progressive_01 c.cn3_short_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_short_01##i.race [pw=weight]



*CODE FOR PRODUCING REGRESSION TABLE S6 IN SUPPLEMENTARY MATERIAL:

*Model 1:

reg woke_01 c.cn3_expand_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 2:

reg woke_01 c.cn3_expand_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_expand_01##i.race [pw=weight]

*Model 3:

reg progressive_01 c.cn3_expand_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 [pw=weight]

*Model 4:

reg progressive_01 c.cn3_expand_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_expand_01##i.race [pw=weight]



*CODE FOR PRODUCING FIGURE S2 IN SUPPLEMENTARY MATERIAL:

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1))

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(marginal probabilities) title(.)



*CODE FOR PRODUCING FIGURE S3 IN SUPPLEMENTARY MATERIAL:

*Panel A (Black vs. White)

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1))

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(marginal probabilities) title(.)


*Panel B (Hispanic vs. White)

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south i.party4 c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race [pw=weight]

margins race if race==1 | race==3, at(cn3_01=(0(.1)1))

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(marginal probabilities) title(.)



*CODE FOR PRODUCING FIGURE S4 IN SUPPLEMENTARY MATERIAL:

*Panel A:

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==1 [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)

*Panel B: 

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==2 [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)


*Panel C:

reg woke_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==3 [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)



*CODE FOR PRODUCING FIGURE S5 IN SUPPLEMENTARY MATERIAL:

*Panel A:

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==1 [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)

*Panel B:

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==2 [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)


*Panel C:

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==3 [pw=weight]

margins race if race<3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)



*CODE FOR PRODUCING FIGURE S6 IN SUPPLEMENTARY MATERIAL:

*Panel A:

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==1 [pw=weight]

margins race if race==1 | race==3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)

*Panel B:

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==2 [pw=weight]

margins race if race==1 | race==3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)


*Panel C:

reg progressive_01 c.cn3_01 i.race c.age_01 i.gender c.educ_01 i.income i.south c.ideo_01 i.reltrad c.relindex201 c.cn3_01##i.race if party4==3 [pw=weight]

margins race if race==1 | race==3, at(cn3_01=(0(.1)1)) atmeans contrast(effects)

marginsplot, scheme(white_tableau) xtitle(Christian Nationalism) ytitle(Contrasts of linear prediction) yline(0, lcolor(red)) title(.)























